Описание
Задает или возвращает значение, которое определяет имя присоединенной таблицы или имя основной таблицы (только в рабочей области Microsoft Jet).

Значение
Задаваемое или возвращаемое значение является выражением типа String, указывающим имя таблицы. Для основной таблицы значением данного свойства является пустая строка (""). Значение данного свойства доступно только для чтения для основной таблицы и для чтения/записи для присоединенной таблицы, а также для объекта, не добавленного в семейство.

Пример
Следующая программа использует свойства Connect и SourceTableName для присоединения различных внешних таблиц к базе данных Microsoft. Для выполнения данной процедуры требуется процедура ConnectOutput.

Sub ConnectX()

	Dim dbsTemp As Database
	Dim strMenu As String
	Dim strInput As String

	' Открывает базу данных Microsoft Jet, к которой 
	' будет присоединена таблица.
	Set dbsTemp = OpenDatabase("DB1.mdb")
	' Сборка текста меню.
	strMenu = "Введите номер, определяющий источник:" & vbCr
	strMenu = strMenu & "   1. База данных Microsoft Jet" & vbCr
	strMenu = strMenu & "   2. Таблица Microsoft FoxPro 3.0" & vbCr
	strMenu = strMenu & "   3. Таблица dBASE" & vbCr
	strMenu = strMenu & "   4. Таблица Paradox" & vbCr
	strMenu = strMenu & "   M. (см. варианты 5-9)"
	' Принимает выбор пользователя.
	strInput = InputBox(strMenu)
	If UCase(strInput) = "M" Then
		' Сборка текста меню.
		strMenu = "Введите номер, определяющий источник:" & vbCr
		strMenu = strMenu & "   5. Электронная таблица Microsoft Excel" & vbCr
		strMenu = strMenu & "   6. Электронная таблица Lotus" & vbCr
		strMenu = strMenu & "   7. Текст, разделяемый запятыми (CSV)" & vbCr
		strMenu = strMenu & "   8. Таблица HTML" & vbCr
		strMenu = strMenu & "   9. Папка Microsoft Exchange"
		' Принимает выбор пользователя.
		strInput = InputBox(strMenu)
	End If
	' Вызывает процедуру ConnectOutput. Третий аргумент будет
	' использован как строка подключения, а четвертый 
	' как значение свойства SourceTableName.
	Select Case Val(strInput)
		Case 1
			ConnectOutput dbsTemp, _
				"JetTable", _
				";DATABASE=C:\My Documents\Борей.mdb", _
				"Employees"
		Case 2
			ConnectOutput dbsTemp, _
				"FoxProTable", _
				"FoxPro 3.0;DATABASE=C:\FoxPro30\Samples", _
				"Q1Sales"
		Case 3
			ConnectOutput dbsTemp, _
				"dBASETable", _
				"dBase IV;DATABASE=C:\dBASE\Samples", _
				"Accounts"
		Case 4
			ConnectOutput dbsTemp, _
				"ParadoxTable", _
				"Paradox 3.X;DATABASE=C:\Paradox\Samples", _
				"Accounts"
		Case 5
			ConnectOutput dbsTemp, _
				"ExcelTable", _
				"Excel 5.0;" & _
				"DATABASE=C:\Excel\Samples\Q1Sales.xls", _
				"January Sales"
		Case 6
			ConnectOutput dbsTemp, _
				"LotusTable", _
				"Lotus WK3;" & _
				"DATABASE=C:\Lotus\Samples\Sales.xls", _
				"THIRDQTR"
		Case 7
			ConnectOutput dbsTemp, _
				"CSVTable", _
				"Text;DATABASE=C:\Samples", _
				"Sample.txt"
		Case 8
			ConnectOutput dbsTemp, _
				"HTMLTable", _
				"HTML Import;DATABASE=http://" & _
				"www.server1.com/samples/page1.html", _
				"Q1SalesData"
		Case 9
			ConnectOutput dbsTemp, _
				"ExchangeTable", _
				"Exchange 4.0;MAPILEVEL=" & _
				"Mailbox - Michelle Wortman (Exchange)" & _
				"|People\Important;", _
				"Jerry Wheeler"
	End Select
dbsTemp.Close
End Sub

Sub ConnectOutput(dbsTemp As Database, _
	strTable As String, strConnect As String, _
	strSourceTable As String)

	Dim tdfLinked As TableDef
	Dim rstLinked As Recordset
	Dim intTemp As Integer

	' Создает новый объект TableDef,задает его свойства Connect
	' и SourceTableName на основании переданных аргументов,
	' добавляет объект в семейство TableDefs.
	Set tdfLinked = dbsTemp.CreateTableDef(strTable)

	tdfLinked.Connect = strConnect
	tdfLinked.SourceTableName = strSourceTable
	dbsTemp.TableDefs.Append tdfLinked
	Set rstLinked = dbsTemp.OpenRecordset(strTable)
	Debug.Print "Data from linked table:"
	' Отображает первые три записи присоединенной таблицы.
	intTemp = 1
	With rstLinked
		Do While Not .EOF And intTemp <= 3
			Debug.Print , .Fields(0), .Fields(1)
			intTemp = intTemp + 1
			.MoveNext
		Loop
		If Not .EOF Then Debug.Print , "[дополнительные записи]"
	.Close
	End With
	' Удаляет присоединенную таблицу, созданную
	' только для демонстрации.
	dbsTemp.TableDefs.Delete strTable

End Sub